10 PRINT"[147]"
20 PRINT"GAS MILEAGE PROGRAM"
30 PRINT:PRINT
40 PRINT"IS MILEAGE IN KM ? "
50 GETA$:IF A$=""THEN50
60 M=0.6214:IFA$="N"THENM=1
80 PRINT"ARE DISTANCES ACCUMULATIVE ?"
90 GETA$:IF A$=""THEN90
100 K=1:IF A$="N" THENK=2
110 PRINT"IS GAS QUANTITY IN LITRES ?"
120 GETA$:IFA$=""THEN120
130 Q=0.2200:IFA$="N"THENQ=1
190 PRINT"[147]":D0=0
200 INPUT"ENTER DISTANCE";D
210 INPUT"ENTER QTY OF GAS";G
220 INPUT"ENTER COST";C
230 D=D*M:G=G*Q:C=C+C0:C0=C
235 IFD0=0THEND0=D:IFK=1THEN275
240 D1=D:IFK=1THEND1=D-D0
250 D0=D
260 PRINT"DIST.(MI)  QTY(GAL)  MI/GAL   TOTAL COST"
270 PRINTINT(D1*100)/100,INT(G*10)/10,INT((D1/G)*10)/10,C
275 PRINT:PRINT
280 GOTO200